## FOR SES MODEL ##

mod_exponential=ets(dts,ic='aicc',restrict=FALSE)
mod_exponential
fitses=ses(dts, h=24,fan=FALSE,initial=c("optimal","simple"), alpha=0.501,beta=NULL,gama=NULL,damped=FALSE)
fitses
F2=fitses
F2
accuracy(F2)
plot(F2)
fvfses=fitted(fitses)
error=dts-fvfses
error

## FOR HOLT WINTER MODEL ##

fitholt=holt(dts,h=24,damped=FALSE,level=c(80,95),fan=FALSE,initial=c("optimal","simple"),exponential=FALSE,alpha=0.501,beta=0.072)
fitholt
F3=fitholt
F3
accuracy(F3)
plot(F3)